500
How can I filter items for dates before a specified date

with AxTree1 do
begin
	BeginUpdate();
	with (Columns.Add('Dates') as EXTREELib.Column) do
	begin
		SortType := EXTREELib.SortTypeEnum.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		DisplayFilterDate := True;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXTREELib.FilterListEnum.exNoItems);
		Filter := 'to 12/27/2010';
		FilterType := EXTREELib.FilterTypeEnum.exDate;
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	ApplyFilter();
	EndUpdate();
end
499
Is it possible to filter dates

with AxTree1 do
begin
	BeginUpdate();
	with (Columns.Add('Dates') as EXTREELib.Column) do
	begin
		SortType := EXTREELib.SortTypeEnum.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		DisplayFilterDate := True;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXTREELib.FilterListEnum.exNoItems);
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	EndUpdate();
end
498
Is it possible to change the Exclude field name to something different, in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	set_Description(EXTREELib.DescriptionTypeEnum.exFilterBarExclude,'Leaving out');
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowExclude) Or Integer(EXTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXTREELib.FilterListEnum.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
	end;
	EndUpdate();
end
497
How can I display the Exclude field in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowExclude) Or Integer(EXTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXTREELib.FilterListEnum.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
	end;
	EndUpdate();
end
496
Is it possible to show and ensure the focused item from the control, in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowFocusItem) Or Integer(EXTREELib.FilterListEnum.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		SelectItem[InsertItem(h,Nil,'Child 2')] := True;
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
495
Is it possible to show only blanks items with no listed items from the control

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowBlanks) Or Integer(EXTREELib.FilterListEnum.exNoItems);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
494
How can I include the blanks items in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXTREELib.FilterListEnum.exShowBlanks) Or Integer(EXTREELib.FilterListEnum.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
493
How can I select multiple items in the drop down filter window, using check-boxes

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXTREELib.FilterListEnum.exShowCheckBox;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
492
Is it possible to allow a single item being selected in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXTREELib.FilterListEnum.exSingleSel;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
491
How can I display no (All) item in the drop down filter window

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	set_Description(EXTREELib.DescriptionTypeEnum.exFilterBarAll,'');
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		FilterList := EXTREELib.FilterListEnum.exNoItems;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
490
Is it possible to display no items in the drop down filter window, so only the pattern is visible

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Items') as EXTREELib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		FilterList := EXTREELib.FilterListEnum.exNoItems;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	EndUpdate();
end
489
How do I hide the selection

with AxTree1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	SelForeColor := ForeColor;
	SelBackColor := BackColor;
	ShowFocusRect := False;
	with Columns do
	begin
		with (Add('Format') as EXTREELib.Column) do
		begin
			FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' + 
	'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
			Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		end;
	end;
	with Items do
	begin
		AddItem(TObject(10));
		AddItem(TObject(-8));
	end;
	EndUpdate();
end
488
How do I access the cells, or how do I get the values in the columns
with AxTree1 do
begin
	with Columns do
	begin
		Add('C1');
		Add('C2');
		Add('C3');
	end;
	with Items do
	begin
		h := AddItem('Item 1');
		CellCaption[TObject(h),TObject(1)] := 'SubItem 1.1';
		CellCaption[TObject(h),TObject(2)] := 'SubItem 1.2';
		OutputDebugString( CellCaption[TObject(h),TObject(0)] );
	end;
end
487
Is it possible to load child items when clicking the +/- button

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
procedure TWinForm1.AxTree1_BeforeExpandItem(sender: System.Object; e: AxEXTREELib._ITreeEvents_BeforeExpandItemEvent);
begin
	with AxTree1 do
	begin
		with Items do
		begin
			InsertItem(e.item,Nil,'new');
			ItemHasChildren[InsertItem(e.item,Nil,'new')] := True;
			InsertItem(e.item,Nil,'new');
		end;
	end
end;

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		ItemHasChildren[AddItem('aka')] := True;
		AddItem('next item');
	end;
end
486
How can I change the check-boxes appearance

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('Default') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		PartialCheck := True;
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	with VisualAppearance do
	begin
		Add(1,'XP:Button 3 12');
		Add(2,'XP:Button 3 11');
		Add(3,'XP:Button 3 10');
	end;
	set_CheckImage(EXTREELib.CheckStateEnum.Unchecked,16777216);
	set_CheckImage(EXTREELib.CheckStateEnum.Checked,33554432);
	set_CheckImage(EXTREELib.CheckStateEnum.PartialChecked,50331648);
end
485
How can I initiate the OLE Drag and Drop support

// OLEStartDrag event - Occurs when the OLEDrag method is called.
procedure TWinForm1.AxTree1_OLEStartDrag(sender: System.Object; e: AxEXTREELib._ITreeEvents_OLEStartDragEvent);
begin
	// Data.SetData("data to drag")
	with AxTree1 do
	begin
		e.allowedEffects := 1;
	end
end;

with AxTree1 do
begin
	OLEDropMode := EXTREELib.exOLEDropModeEnum.exOLEDropManual;
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
end
484
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)

with AxTree1 do
begin
	BeginUpdate();
	with ConditionalFormats.Add('1','K1') do
	begin
		BackColor := $ff;
		ApplyTo := EXTREELib.FormatApplyToEnum($1);
	end;
	with ConditionalFormats.Add('1','K2') do
	begin
		BackColor := $ff;
		ApplyTo := EXTREELib.FormatApplyToEnum($2);
	end;
	MarkSearchColumn := False;
	DrawGridLines := EXTREELib.GridLinesEnum.exRowLines;
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
		Add('Column 3');
	end;
	with Items do
	begin
		AddItem(Nil);
		AddItem(Nil);
		AddItem(Nil);
	end;
	EndUpdate();
end
483
Is it possible to display empty strings for 0 values

with AxTree1 do
begin
	(Columns.Add('Currency') as EXTREELib.Column).FormatColumn := 'dbl(value) ? currency(dbl(value)) : ``';
	with Items do
	begin
		AddItem(TObject(1.23));
		AddItem(TObject(2.34));
		AddItem(TObject(0));
		AddItem(TObject(10000.99));
	end;
end
482
Is it possible to display empty strings for 0 values

with AxTree1 do
begin
	Columns.Add('Number');
	(Columns.Add('Currency') as EXTREELib.Column).ComputedField := '%0 ? currency(%0) : ``';
	with Items do
	begin
		AddItem(TObject(1.23));
		AddItem(TObject(2.34));
		AddItem(TObject(0));
		AddItem(TObject(10000.99));
	end;
end
481
How can I get the list of items as they are displayed
with AxTree1 do
begin
	BeginUpdate();
	BackColorAlternate := Color.FromArgb(240,240,240);
	Columns.Add('Names');
	with Items do
	begin
		AddItem('Mantel');
		AddItem('Mechanik');
		AddItem('Motor');
		AddItem('Murks');
		AddItem('Märchen');
		AddItem('Möhren');
		AddItem('Mühle');
	end;
	Columns.Item[TObject(0)].SortOrder := EXTREELib.SortOrderEnum.SortAscending;
	EndUpdate();
	OutputDebugString( GetItems(TObject(1)) );
end
480
Is posible to reduce the size of the picture to be shown in the column's caption

with AxTree1 do
begin
	BeginUpdate();
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	HeaderHeight := 48;
	(Columns.Add('DefaultSize') as EXTREELib.Column).HTMLCaption := 'Default-Size <img>pic1</img> Picture';
	(Columns.Add('CustomSize') as EXTREELib.Column).HTMLCaption := 'Custom-Size <img>pic1:16</img> Picture';
	EndUpdate();
end
479
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

with AxTree1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with ConditionalFormats.Add('1',Nil) do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXTREELib.FormatApplyToEnum($1);
	end;
	Columns.Add('C1');
	with (Columns.Add('C2') as EXTREELib.Column) do
	begin
		HeaderBold := True;
		HTMLCaption := '<fgcolor=FF0000>C2';
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(11);
		CellCaption[TObject(AddItem(TObject(12))),TObject(1)] := TObject(13);
	end;
	EndUpdate();
end
478
The item is not getting selected when clicking the cell's checkbox. What should I do

// CellStateChanged event - Fired after cell's state has been changed.
procedure TWinForm1.AxTree1_CellStateChanged(sender: System.Object; e: AxEXTREELib._ITreeEvents_CellStateChangedEvent);
begin
	with AxTree1 do
	begin
		Items.SelectItem[e.item] := True;
	end
end;

with AxTree1 do
begin
	(Columns.Add('Check') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
		AddItem(TObject(2));
		AddItem(TObject(3));
	end;
end
477
Is it possible to limit the height of the item while resizing

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxTree1_AddItem(sender: System.Object; e: AxEXTREELib._ITreeEvents_AddItemEvent);
begin
	with AxTree1 do
	begin
		Items.ItemMinHeight[e.item] := 18;
		Items.ItemMaxHeight[e.item] := 72;
	end
end;

with AxTree1 do
begin
	BeginUpdate();
	ItemsAllowSizing := EXTREELib.ItemsAllowSizingEnum.exResizeItem;
	ScrollBySingleLine := False;
	BackColorAlternate := Color.FromArgb(240,240,240);
	Columns.Add('Names');
	with Items do
	begin
		AddItem('Mantel');
		AddItem('Mechanik');
		AddItem('Motor');
		AddItem('Murks');
		AddItem('Märchen');
		AddItem('Möhren');
		AddItem('Mühle');
	end;
	Columns.Item[TObject(0)].SortOrder := EXTREELib.SortOrderEnum.SortAscending;
	EndUpdate();
end
476
Is it possible to copy the hierarchy of the control using the GetItems method

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Def');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
	end;
	PutItems(GetItems(TObject(-1)),Nil);
end
475
How can I show the child items with no identation

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLinesOutside;
	Indent := 12;
	HasLines := EXTREELib.HierarchyLineEnum.exThinLine;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
	end;
end
474
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLinesAtRoot;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
473
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLinesOutside;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
	end;
end
472
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLinesInsideLeaf;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
471
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLinesInside;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
470
Is there other ways of showing the hierarchy lines (exGroupLines)

with AxTree1 do
begin
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exGroupLines;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(InsertItem(h,Nil,'Child 2'),Nil,'SubChild 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
469
Does your control supports multiple lines tooltip

with AxTree1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	ToolTipDelay := 1;
	(Columns.Add('tootip') as EXTREELib.Column).ToolTip := '<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, i' + 
	'cons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>';
end
468
How can I prevent highlighting the column from the cursor - point

with AxTree1 do
begin
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJg' + 
	'EgI=');
	set_Background(EXTREELib.BackgroundPartEnum.exCursorHoverColumn,$1000000);
	(Columns.Add('S') as EXTREELib.Column).Width := 32;
	(Columns.Add('Level 1') as EXTREELib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 2') as EXTREELib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 3') as EXTREELib.Column).LevelKey := TObject(1);
	(Columns.Add('E1') as EXTREELib.Column).Width := 32;
	(Columns.Add('E2') as EXTREELib.Column).Width := 32;
	(Columns.Add('E3') as EXTREELib.Column).Width := 32;
	(Columns.Add('E4') as EXTREELib.Column).Width := 32;
end
467
Is there any option to show the tooltip programmatically

// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxTree1_MouseMoveEvent(sender: System.Object; e: AxEXTREELib._ITreeEvents_MouseMoveEvent);
begin
	with AxTree1 do
	begin
		ShowToolTip(get_ItemFromPoint(-1,-1,c,hit),'','8','8',Nil);
	end
end;

with AxTree1 do
begin
	BeginUpdate();
	Columns.Add('Def');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
	end;
	EndUpdate();
end
466
Is it possible to prevent changing the rows/items colors by selection

with AxTree1 do
begin
	SelBackMode := EXTREELib.BackModeEnum.exTransparent;
	(Columns.Add('HTML') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
	with Items do
	begin
		AddItem('<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.');
		SelectItem[AddItem('<font ;6>This</font> <b>is</b> another <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.')] := True;
	end;
end
465
Is it possible to specify the cell's value but still want to display some formatted text instead the value

with AxTree1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	Columns.Add('Value');
	Columns.Add('FormatCell');
	with Items do
	begin
		h := AddItem(TObject(1));
		CellCaption[TObject(h),TObject(1)] := TObject(12);
		FormatCell[TObject(h),TObject(1)] := 'currency(value)';
		h := AddItem('1/1/2001');
		CellCaption[TObject(h),TObject(1)] := '1/1/2001';
		CellCaptionFormat[TObject(h),TObject(1)] := EXTREELib.CaptionFormatEnum.exHTML;
		FormatCell[TObject(h),TObject(1)] := 'longdate(value) replace ''2001'' with ''<b>2001</b>''';
	end;
	EndUpdate();
end
464
How can I simulate displaying groups

with AxTree1 do
begin
	BeginUpdate();
	HasLines := EXTREELib.HierarchyLineEnum.exNoLine;
	ScrollBySingleLine := True;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Name');
		Add('A');
		Add('B');
		Add('C');
	end;
	with Items do
	begin
		h := AddItem('Group 1');
		CellHAlignment[TObject(h),TObject(0)] := EXTREELib.AlignmentEnum.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXTREELib.DividerAlignmentEnum.DividerBoth;
		ItemHeight[h] := 24;
		SortableItem[h] := False;
		h1 := InsertItem(h,Nil,'Child 1');
		CellCaption[TObject(h1),TObject(1)] := TObject(1);
		CellCaption[TObject(h1),TObject(2)] := TObject(2);
		CellCaption[TObject(h1),TObject(3)] := TObject(3);
		h1 := InsertItem(h,Nil,'Child 2');
		CellCaption[TObject(h1),TObject(1)] := TObject(4);
		CellCaption[TObject(h1),TObject(2)] := TObject(5);
		CellCaption[TObject(h1),TObject(3)] := TObject(6);
		ExpandItem[h] := True;
		h := AddItem('Group 2');
		CellHAlignment[TObject(h),TObject(0)] := EXTREELib.AlignmentEnum.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXTREELib.DividerAlignmentEnum.DividerBoth;
		ItemHeight[h] := 24;
		SortableItem[h] := False;
		h1 := InsertItem(h,Nil,'Child 1');
		CellCaption[TObject(h1),TObject(1)] := TObject(1);
		CellCaption[TObject(h1),TObject(2)] := TObject(2);
		CellCaption[TObject(h1),TObject(3)] := TObject(3);
		h1 := InsertItem(h,Nil,'Child 2');
		CellCaption[TObject(h1),TObject(1)] := TObject(4);
		CellCaption[TObject(h1),TObject(2)] := TObject(5);
		CellCaption[TObject(h1),TObject(3)] := TObject(6);
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
463
How can I collapse all items

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[0] := False;
	end;
	EndUpdate();
end
462
How can I expand all items

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[0] := True;
	end;
	EndUpdate();
end
461
Can I use PNG images to display pictures in the control

with AxTree1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\card.png');
	HeaderHeight := 48;
	(Columns.Add('ColumnName') as EXTREELib.Column).HTMLCaption := '<b>HTML</b> Column <img>pic1</img> Picture';
end
460
Is it possible to move an item from a parent to another

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		AddItem('A');
		AddItem('B');
		InsertItem(AddItem('C'),'','D');
		SetParent(FindItem['D',TObject(0),Nil],FindItem['A',TObject(0),Nil]);
	end;
	EndUpdate();
end
459
How can I change the identation for an item

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		AddItem('A');
		AddItem('B');
		InsertItem(AddItem('C'),'','D');
		SetParent(FindItem['D',TObject(0),Nil],0);
	end;
	EndUpdate();
end
458
How can I filter programatically using more columns

with AxTree1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Car');
		Add('Equipment');
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'Air Bag';
		CellCaption[TObject(AddItem('Toyota')),TObject(1)] := 'Air Bag,Air condition';
		CellCaption[TObject(AddItem('Ford')),TObject(1)] := 'Air condition';
		CellCaption[TObject(AddItem('Nissan')),TObject(1)] := 'Air Bag,ABS,ESP';
		CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'Air Bag, ABS,ESP';
		CellCaption[TObject(AddItem('Mazda')),TObject(1)] := 'ABS,ESP';
	end;
	with Columns.Item['Car'] do
	begin
		FilterType := EXTREELib.FilterTypeEnum.exFilter;
		Filter := 'Mazda';
	end;
	with Columns.Item['Equipment'] do
	begin
		FilterType := EXTREELib.FilterTypeEnum.exPattern;
		Filter := '*ABS*|*ESP*';
	end;
	ApplyFilter();
	EndUpdate();
end
457
Is it possible to colour a particular column, I mean the cell's foreground color

with AxTree1 do
begin
	BeginUpdate();
	with ConditionalFormats.Add('1',Nil) do
	begin
		ForeColor := $ff;
		ApplyTo := EXTREELib.FormatApplyToEnum($1);
	end;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
		CellCaption[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
		CellCaption[TObject(AddItem(TObject(4))),TObject(1)] := TObject(5);
	end;
	EndUpdate();
end
456
Is it possible to colour a particular column for specified values

with AxTree1 do
begin
	BeginUpdate();
	with ConditionalFormats.Add('int(%1) in (3,4,5)',Nil) do
	begin
		BackColor := $ff;
		ApplyTo := EXTREELib.FormatApplyToEnum($1);
	end;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
		CellCaption[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
		CellCaption[TObject(AddItem(TObject(4))),TObject(1)] := TObject(5);
	end;
	EndUpdate();
end
455
Is it possible to colour a particular column

with AxTree1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exCellBackColor] := TObject(255);
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(0))),TObject(1)] := TObject(1);
		CellCaption[TObject(AddItem(TObject(2))),TObject(1)] := TObject(3);
		CellCaption[TObject(AddItem(TObject(4))),TObject(1)] := TObject(5);
	end;
	EndUpdate();
end
454
How do i get all the children items that are under a certain parent Item handle
with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('P');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	with Items do
	begin
		hChild := ItemChild[FirstVisibleItem];
		OutputDebugString( CellCaption[TObject(hChild),TObject(0)] );
		OutputDebugString( CellCaption[TObject(NextSiblingItem[hChild]),TObject(0)] );
	end;
	EndUpdate();
end
453
How can I get the caption of focused item
// SelectionChanged event - Fired after a new item has been selected.
procedure TWinForm1.AxTree1_SelectionChanged(sender: System.Object; e: System.EventArgs);
begin
	with AxTree1 do
	begin
		with Items do
		begin
			OutputDebugString( 'Handle' );
			OutputDebugString( FocusItem );
			OutputDebugString( 'Caption' );
			OutputDebugString( CellCaption[TObject(FocusItem),TObject(0)] );
		end;
	end
end;

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('R1');
		InsertItem(h,Nil,'Cell 1.1');
		InsertItem(h,Nil,'Cell 1.2');
		ExpandItem[h] := True;
		h := AddItem('R2');
		InsertItem(h,Nil,'Cell 2.1');
		InsertItem(h,Nil,'Cell 2.2');
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
452
How can I get the caption of selected item
// SelectionChanged event - Fired after a new item has been selected.
procedure TWinForm1.AxTree1_SelectionChanged(sender: System.Object; e: System.EventArgs);
begin
	with AxTree1 do
	begin
		with Items do
		begin
			OutputDebugString( 'Handle' );
			OutputDebugString( SelectedItem[0] );
			OutputDebugString( 'Caption' );
			OutputDebugString( CellCaption[TObject(SelectedItem[0]),TObject(0)] );
		end;
	end
end;

with AxTree1 do
begin
	BeginUpdate();
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('R1');
		InsertItem(h,Nil,'Cell 1.1');
		InsertItem(h,Nil,'Cell 1.2');
		ExpandItem[h] := True;
		h := AddItem('R2');
		InsertItem(h,Nil,'Cell 2.1');
		InsertItem(h,Nil,'Cell 2.2');
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
451
Can I display the cell's check box after the text

with AxTree1 do
begin
	with (Columns.Add('Column') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		Def[EXTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check';
	end;
	with Items do
	begin
		CellHasCheckBox[TObject(AddItem('Caption 1')),TObject(0)] := True;
		CellHasCheckBox[TObject(AddItem('Caption 2')),TObject(0)] := True;
	end;
end
450
Can I change the order of the parts in the cell, as checkbox after the text, and so on

with AxTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	(Columns.Add('Column') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,check,icon,icons,picture';
	with Items do
	begin
		h := AddItem('Text');
		CellImage[TObject(h),TObject(0)] := 1;
		CellHasCheckBox[TObject(h),TObject(0)] := True;
	end;
end
449
Can I have an image displayed after the text. Can I get that effect without using HTML content

with AxTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	(Columns.Add('Column') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,icon,check,icons,picture';
	with Items do
	begin
		h := AddItem('Text');
		CellImage[TObject(h),TObject(0)] := 1;
	end;
end
448
Does your control support RightToLeft property for RTL languages or right to left

with AxTree1 do
begin
	BeginUpdate();
	ScrollBars := EXTREELib.ScrollBarsEnum.exDisableBoth;
	LinesAtRoot := EXTREELib.LinesAtRootEnum.exLinesAtRoot;
	with (Columns.Add('P1') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		PartialCheck := True;
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	RightToLeft := True;
	EndUpdate();
end
447
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right

with AxTree1 do
begin
	BeginUpdate();
	ScrollBars := EXTREELib.ScrollBarsEnum.exDisableBoth;
	with Columns do
	begin
		Add('C1');
		Add('C2');
		Add('C3');
		Add('C4');
		Add('C5');
		Add('C6');
		Add('C7');
		Add('C8');
	end;
	RightToLeft := True;
	EndUpdate();
end
446
How can I use the CASE statement (CASE usage)

with AxTree1 do
begin
	BeginUpdate();
	(Columns.Add('Value') as EXTREELib.Column).Width := 24;
	with (Columns.Add('CASE - statment') as EXTREELib.Column) do
	begin
		ComputedField := '%0 case (default:''not found'';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen'';14:''Fourth' + 
	'een'')';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
		AddItem(TObject(2));
	end;
	EndUpdate();
end
445
How can I use the CASE statement (CASE usage)

with AxTree1 do
begin
	BeginUpdate();
	(Columns.Add('Value') as EXTREELib.Column).Width := 24;
	with (Columns.Add('CASE - statment') as EXTREELib.Column) do
	begin
		ComputedField := '%0 case (default:''not found'';1:''One'';2:''Two'';3:''Three'';4:''Four'';5:''Five'';7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen''' + 
	';14:''Fourtheen'')';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
		AddItem(TObject(2));
	end;
	EndUpdate();
end
444
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )

with AxTree1 do
begin
	BeginUpdate();
	(Columns.Add('Value') as EXTREELib.Column).Width := 24;
	with (Columns.Add('SWITCH - statment') as EXTREELib.Column) do
	begin
		ComputedField := '%0 switch (''not found'', 1,2,3,4,5,7,8,9,11,13,14)';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
		AddItem(TObject(2));
	end;
	EndUpdate();
end
443
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection

with AxTree1 do
begin
	BeginUpdate();
	(Columns.Add('Value') as EXTREELib.Column).Width := 24;
	with (Columns.Add('IN - statment') as EXTREELib.Column) do
	begin
		ComputedField := '%0 in (1,2,3,4,5,7,8,9,11,13,14) ? ''found'' : ''''';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(TObject(0));
		AddItem(TObject(1));
		AddItem(TObject(2));
	end;
	EndUpdate();
end
442
Is is possible to use HTML tags to display in the filter caption

with AxTree1 do
begin
	BeginUpdate();
	FilterBarPromptVisible := True;
	FilterBarCaption := 'This is a bit of text being displayed in the filter bar.';
	Columns.Add('');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
	end;
	EndUpdate();
end
441
How can I find the number of items after filtering
with AxTree1 do
begin
	BeginUpdate();
	Columns.Add('');
	with Items do
	begin
		h := AddItem('');
		CellCaption[TObject(h),TObject(0)] := TObject(VisibleItemCount);
	end;
	EndUpdate();
end
440
How can I change the filter caption

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXTREELib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXTREELib.FilterPromptEnum.exFilterPromptContainsAll);
	FilterBarPromptPattern := 'london robert';
	FilterBarCaption := '<r>Found: ... ';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
439
While using the filter prompt is it is possible to use wild characters

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptPattern;
	FilterBarPromptPattern := 'lon* seat*';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
438
How can I list all items that contains any of specified words, not necessary at the beggining

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXTREELib.FilterPromptEnum.exFilterPromptStartWords) Or Integer(EXTREELib.FilterPromptEnum.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'london davolio';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
437
How can I list all items that contains any of specified words, not strings

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXTREELib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXTREELib.FilterPromptEnum.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'london nancy';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
436
How can I list all items that contains all specified words, not strings

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXTREELib.FilterPromptEnum.exFilterPromptWords) Or Integer(EXTREELib.FilterPromptEnum.exFilterPromptContainsAll);
	FilterBarPromptPattern := 'london robert';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
435
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXTREELib.FilterPromptEnum.exFilterPromptCaseSensitive) Or Integer(EXTREELib.FilterPromptEnum.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'Anne';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
434
Is it possible to list only items that ends with any of specified strings

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptEndWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'Fuller';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
433
Is it possible to list only items that ends with any of specified strings

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptEndWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'Fuller';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
432
Is it possible to list only items that starts with any of specified strings

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptStartWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'An M';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
431
Is it possible to list only items that starts with specified string

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptStartWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'A';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
430
How can I specify that the list should include any of the seqeunces in the pattern

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptContainsAny;
	FilterBarPromptPattern := 'london seattle';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
429
How can I specify that all sequences in the filter pattern must be included in the list

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXTREELib.FilterPromptEnum.exFilterPromptContainsAll;
	FilterBarPromptPattern := 'london manager';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
428
How do I change at runtime the filter prompt

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptPattern := 'london manager';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
427
How do I specify to filter only a single column when using the filter prompt

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptColumns := '2,3';
	FilterBarPromptPattern := 'london';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
426
How do I change the prompt or the caption being displayed in the filter bar

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPrompt := 'changed';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	EndUpdate();
end
425
How do I enable the filter prompt feature

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end
424
I have an EBN file how can I apply different colors to it, so no need to create a new one

with AxTree1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	SelBackColor := BackColor;
	SelForeColor := ForeColor;
	HasLines := EXTREELib.HierarchyLineEnum.exNoLine;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Nil,'Default');
		ItemBackColor[hC] := $1000000;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Light Green');
		ItemBackColor[hC] := $100ff00;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Dark Green');
		ItemBackColor[hC] := $1007f00;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Magenta');
		ItemBackColor[hC] := $1ff7fff;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		hC := InsertItem(h,Nil,'Yellow');
		ItemBackColor[hC] := $17fffff;
		ItemHeight[InsertItem(h,Nil,'')] := 6;
		ExpandItem[h] := True;
	end;
end
423
How can I change the foreground color for a particular column

with AxTree1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exHeaderForeColor] := TObject(8439039);
		Add('Column 3');
	end;
end
422
How can I change the background color for a particular column

with AxTree1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXTREELib.Column).Def[EXTREELib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
		Add('Column 3');
	end;
end
421
How can I display the column using currency format and enlarge the font for certain values

with AxTree1 do
begin
	with (Columns.Add('Currency') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		FormatColumn := 'len(value) ? ((0:=dbl(value)) < 10 ? ''<fgcolor=808080><font ;7>'' : ''<b>'') + currency(=:0)';
	end;
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('9.94');
		AddItem('11.94');
		AddItem('1000');
	end;
end
420
How can I highlight only parts of the cells

with AxTree1 do
begin
	with (Columns.Add('') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		FormatColumn := 'value replace ''hil'' with ''<fgcolor=FF0000><b>hil</b></fgcolor>''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
419
How can I get the number of occurrences of a specified string in the cell

with AxTree1 do
begin
	Columns.Add('');
	with (Columns.Add('occurrences') as EXTREELib.Column) do
	begin
		ComputedField := 'lower(%0) count ''o''';
		FormatColumn := '''contains '' + value + '' of \''o\'' chars''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1 oooof the root');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
418
How can I display dates in my format

with AxTree1 do
begin
	with (Columns.Add('Date') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		FormatColumn := '''<b>'' + year(0:=date(value)) + ''</b><fgcolor=808080><font ;6> ('' + month(=:0) + '' - '' + day(=:0) +'')''';
	end;
	with Items do
	begin
		AddItem('1/21/2001');
		AddItem('2/22/2002');
		AddItem('3/13/2003');
		AddItem('4/24/2004');
	end;
end
417
How can I display dates in short format

with AxTree1 do
begin
	(Columns.Add('Date') as EXTREELib.Column).FormatColumn := 'shortdate(value)';
	with Items do
	begin
		AddItem('1/1/2001');
		AddItem('2/2/2002');
		AddItem('3/3/2003');
		AddItem('4/4/2004');
	end;
end
416
How can I display dates in long format

with AxTree1 do
begin
	(Columns.Add('Date') as EXTREELib.Column).FormatColumn := 'longdate(value)';
	with Items do
	begin
		AddItem('1/1/2001');
		AddItem('2/2/2002');
		AddItem('3/3/2003');
		AddItem('4/4/2004');
	end;
end
415
How can I display only the right part of the cell

with AxTree1 do
begin
	Columns.Add('');
	with (Columns.Add('Right') as EXTREELib.Column) do
	begin
		ComputedField := '%0 right 2';
		FormatColumn := '''"'' + value + ''"''';
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'SChild 3');
		ExpandItem[h] := True;
	end;
end
414
How can I display only the left part of the cell

with AxTree1 do
begin
	Columns.Add('');
	(Columns.Add('Left') as EXTREELib.Column).ComputedField := '%0 left 2';
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		InsertItem(h,Nil,'SChild 3');
		ExpandItem[h] := True;
	end;
end
413
How can I display true or false instead 0 and -1

with AxTree1 do
begin
	(Columns.Add('Boolean') as EXTREELib.Column).FormatColumn := 'value != 0 ? ''true'' : ''false''';
	with Items do
	begin
		AddItem(TObject(True));
		AddItem(TObject(False));
		AddItem(TObject(True));
		AddItem(TObject(0));
		AddItem(TObject(1));
	end;
end
412
How can I display icons or images instead numbers

with AxTree1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('Icons') as EXTREELib.Column) do
	begin
		Def[EXTREELib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
		FormatColumn := '''The cell displays the icon <img>''+value+''</img> instead '' + value';
	end;
	with Items do
	begin
		AddItem(TObject(1));
		AddItem(TObject(2));
		AddItem(TObject(3));
	end;
end
411
How can I display the column using currency

with AxTree1 do
begin
	(Columns.Add('Currency') as EXTREELib.Column).FormatColumn := 'currency(dbl(value))';
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('0');
		AddItem(TObject(5));
		AddItem('10000.99');
	end;
end
410
How can I display the currency only for not empty cells

with AxTree1 do
begin
	Columns.Add('Number');
	(Columns.Add('Currency') as EXTREELib.Column).ComputedField := 'len(%0) ? currency(dbl(%0)) : ''''';
	with Items do
	begin
		AddItem('1.23');
		AddItem('2.34');
		AddItem('0');
		ItemBackColor[AddItem(Nil)] := $8080ff;
		AddItem('10000.99');
	end;
end
409
Is there a function to display the number of days between two date including the number of hours

with AxTree1 do
begin
	(Columns.Add('Start') as EXTREELib.Column).Width := 32;
	Columns.Add('End');
	(Columns.Add('Duration') as EXTREELib.Column).ComputedField := '2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '''' : str(=:1) + '' day(s)'') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? '' and '' : ''' + 
	''') + =:3 + '' hour(s)'' : '''' )';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellCaption[TObject(h),TObject(1)] := '1/14/2001';
		h := AddItem('2/22/2002 12:00:00 PM');
		CellCaption[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
		h := AddItem('3/13/2003');
		CellCaption[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
	end;
end
408
Is there a function to display the number of days between two date including the number of hours

with AxTree1 do
begin
	Columns.Add('Start');
	Columns.Add('End');
	(Columns.Add('Duration') as EXTREELib.Column).ComputedField := '"D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellCaption[TObject(h),TObject(1)] := '1/14/2001 11:00:00 PM';
		h := AddItem('2/22/2002 12:00:00 PM');
		CellCaption[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
		h := AddItem('3/13/2003');
		CellCaption[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
	end;
end
407
How can I display the number of days between two dates

with AxTree1 do
begin
	Columns.Add('Start');
	Columns.Add('End');
	(Columns.Add('Duration') as EXTREELib.Column).ComputedField := '(date(%1)-date(%0)) + '' days''';
	with Items do
	begin
		h := AddItem('1/11/2001');
		CellCaption[TObject(h),TObject(1)] := '1/14/2001';
		h := AddItem('2/22/2002');
		CellCaption[TObject(h),TObject(1)] := '3/14/2002';
		h := AddItem('3/13/2003');
		CellCaption[TObject(h),TObject(1)] := '4/11/2003';
	end;
end
406
How can I get second part of the date

with AxTree1 do
begin
	Columns.Add('Date');
	(Columns.Add('Second') as EXTREELib.Column).ComputedField := 'sec(date(%0))';
	with Items do
	begin
		AddItem('1/11/2001 10:10:00 AM');
		AddItem('2/22/2002 11:01:22 AM');
		AddItem('3/13/2003 12:23:01 PM');
		AddItem('4/14/2004 1:11:59 PM');
	end;
end
405
How can I get minute part of the date

with AxTree1 do
begin
	Columns.Add('Date');
	(Columns.Add('Minute') as EXTREELib.Column).ComputedField := 'min(date(%0))';
	with Items do
	begin
		AddItem('1/11/2001 10:10:00 AM');
		AddItem('2/22/2002 11:01:00 AM');
		AddItem('3/13/2003 12:23:00 PM');
		AddItem('4/14/2004 1:11:00 PM');
	end;
end
404
How can I check the hour part only so I know it was afternoon

with AxTree1 do
begin
	ConditionalFormats.Add('hour(%0)>=12',Nil).Bold := True;
	Columns.Add('Date');
	(Columns.Add('Hour') as EXTREELib.Column).ComputedField := 'hour(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
403
What about a function to get the day in the week, or days since Sunday

with AxTree1 do
begin
	Columns.Add('Date');
	(Columns.Add('WeekDay') as EXTREELib.Column).ComputedField := 'weekday(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
402
Is there any function to get the day of the year or number of days since January 1st

with AxTree1 do
begin
	Columns.Add('Date');
	(Columns.Add('Day since January 1st') as EXTREELib.Column).ComputedField := 'yearday(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
401
How can I display only the day of the date

with AxTree1 do
begin
	Columns.Add('Date');
	(Columns.Add('Day') as EXTREELib.Column).ComputedField := 'day(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end